flTOl 



E 661 PDS-V3N 



60991 

00002 
00003 

06064 
00665 
66606 
66667 
68668 
66669 
B6616 

06811 

66612 
68613 
66614 

,66615 
W616 



6PT 



FDS-V3N 
0,NOG 




66618 

89619 
66626 
66621 
66622 
023 



Hi 



624 
66625 
66626 
6662? 
66628 
66629 
66030 
60031 ,. 
66632 
66633 
66634 
66635 
6B636 
66637 
-00038 
@B6S9~ 
66046 
66041 
60642 
00043 
00644 
66045 
66046 
6604? 
648 
649 
06056 
09051 
66052 
666S3 



^0 



PROGRAMMED BY ERIC JAMESON 



COPYRIGHT 1976 SPHERE CORPORATION 

946 N. 4TH Eft. ; NORTH SALT LAKE, UTAH 



84654 



SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION.. 
DISTRIBUTION AND USE OF THE PDS SOFTWARE. 
NO COPIES MAY BE MADE OR DISTRIBUTED HITHOUT THE 
WRITTEN PERMISSION OF SPHERE CORP. 



* 

* 
* 

# 

* THE PROGRAM DEVELOPMENT SYSTEM <PDS V3N) IS ft SET OF 

* PROGRAMS RDSIDING ON ERASABLE PROGRAMMABLE READ ONLY 

* MEMORY NHICH ALLON EVEN THE SMALLEST USER TO USE HIS 

* SPHERE SYSTEM AS A COMPLETE COMPUTER SYSTEM FOR THE 

* DEVELOPMENT OF COMPUTER PROGRAMS. 

* TONARD THIS END, THE 4 PDS EPROMS CONTAIN A CURSOR 

* BASED EDITOR, A MINI-ASSEMBLER.. AND THE SPHERE DEBUGGING 

* AID (SDA), AS NELL AS A SET OF UTILITY ROUTINES TO DO 16 

* BIT MULTIPLY AND DIVIDE.. ASCI I -TO-BINARY, AND 

* BINARV-TO-ASCII ROUTINES. 

sft .'■•"■■■<,■•■..■■'. i, 

* THE PDS-V3N PROM SET HAS WRITTEN IN ORDER TO RUN THE 

* HEN KEYBOARD. CHANGES MERE MADE IN THE EDITOR AND THE 

* DEBUGGER. AS THE MEN PROMS ARE A GREAT IMPROVEMENT OVER 
*' THE V3A PROMM SET, A VERSION KNONN AS PDS-V3D MAS MADE ^^ 

* MOULD RUN ON THE OLD KEYBOARDS. THE ONLY DIFFERENCE ' 

* BETWEEN THE V'SD AND THE V3N PPROMS ARE THAT THE PIA 

* ADDRESS IS CHANGED FROM F646 ON V3N TO F666 ON V3D. 

* CHANGES NERE ALSO MADE IN THE DEBUGGER AND THE 

* EDITOR. THE EDITOR CHANGES NERE THAT INSERT AND DELETE 

* ARE NON AT THE TOP OF THE PAGE AND THAT THERE IS A REEDIT 

* COMMAND IN THE EXEC (CTRL R> TO ALLON RE-EDITING. THE 

* ENTRY TO THE DEBUGGER FROM THE BREAKPOINT INSTRUCTION 

* HAS BEEN CHANGED SO THAT THE RETURN ADDRESS FOR THE 

* BREAKPOINT IS NON CALCULATED NHEN THE BREAKPOINT IS 

* ENCOUNTERED AND GOES TO THE DEBUGGER. IN ADDITION 

* THERE ARE 2 MEN INSTRUCTIONS: tJ FOR DOING A JSR TO 



ROUTINE AND fX TO EXIT BACK TO THE EXEC. 
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68855 
60056 
90057 
0dd58 
00059 

00060 

00061 

06062 
69063: 
66064 
69065 

06666 

00Q6? 

60068 

60669 

66070 

06071 

66072 

Q6073 

60674 

00675 

06676 

66677 

00678 

68679 

66680 

66881 

60682 

66083 

66684 

06685 

60886 

6968? 

08688 

66089 

06690 

00091 



0090 u 

6602 v 
6684^ 

0004 

6805 

0006 • 

0006" - 
0007^ 

0000 r 

000ft 
V000O 

V000E • 

0011 

9014 

0010/ 

001 E 

0020 J 

8822" 
6924 ' 
*-0826</ 
682R 
682C . 
002EJ 

0636^ 
0032/ 

6035 ^ 
66404 

E61F 
E1E6 
E1FF 
F046 

gooo 



TNP EQU -K 

mpi equ * 

RRB EQU s.. 

RR3 EQU ' 

RR2 EQU ' 

FIRFI EQU^ 

P.R1 EQU *• 

t!R6 EQU > 

DIGIT EQU' 
OUTEND EQU 
BUFfiDR EQU* 
BUFEND EQU* 
OUTBUF EQU 
SRCRDR EQU 
DSTRDR EQU ? 
ENDNEN EQU? 
CSRPTR EQU'« 
BUFPTR EQU 
BUFFLO EQU* 
BUFFH1 EQU? 
SCNPTR EQU? 
SRCRSN EQU 3 
ONDVRL EQU 
SYNVRL EQU 
BRKSAV EQU< 
BRKRDR EQUj- 
EDIT EQU i 
I08UFF EQU* 
PCVAL EQUv 

FRSTLN EQU 
LRSTLN EQU 
LRSTCH EQU 
KBDPIA EQU 
^KEYBOARD PIR 



MEMORY MRP 






*00 

$Q2 
$84 
$64 
$65 
$06 
$86 

$0? 

$68 

$0R 

$88 

$6E 

$11 

$14 

$16 

$:W 

$1C 

$1E 

$28 

$22 

$24 • 

$26 

$28 

$2C 

$2E 

$38 

$32 

$35 

$48 

$E61F 

$E1EQ 
$E1FF 
$F046 
ADDRESS 



16 BIT RCC. PSEUDQ REG B. 
„HJ BYTE OF ARB. 
_L0 BYTE OF RRB. 
16 BIV RRITH PSEUON REG ft. 
_WJ BYTE OF RRR. 
„LQ BYTE OF ARA. 
BYTE USED BY ASCBIN F8R TMP. 
END OF OUTPUT BUFFER TEXT. 
STRRT OF I/O BUFFER <PTR> 
PTR. TO END OF I/O BUFFR. 
STRRT OF OUTPUT BUFFER. 
SOURCE FOR TEXT MOVES. 
DEST. RDDR. FOR TEXT MOVE. 
LAST ADORES OF REAL MEMORY. 
PTR TO CURSE R ON SCREEN. 
TEMP PTR USED BY OUTSTR. 
PTR TO END OF LOW EDIT TXT. 
PTR TO STRRT OF HI TEXT. 
PTR. TO BUFFRD TXT STRRT. 
PTR TO RSSMBLR SOURCE CODE. 
HFlS RSSMBLR- OPFRND VRLUE. 
VALUE PUT IN RSSN. SVMTBL 
TEMP SRVE FOR BRKPT DRTR. 
RDDDRESS OF BREAKPOINT, 
8 IF EDITOR IS NOT RUNNING. 
1-0 BUFFER FOR DEBUGGER. 
PROGRAM COUNTER FOR RSSN. 

RIGHTMOST CHRP OF LINE ONE. 
LEFT SIDE OF BOTTOM OF CRT. 
LRST CHRP ON CRT DISPLAY. 
RDDRESS OF PIR FOR KBD/2. 
FOR OLD KEYBOARD (KBD/1A) IS F866. 



80893 



SI 



FE71 INPCHR EQU 

m 8SB?« 188 



$FE71 

mt 



INPUTS A CHARACTER. 



«**» mwF 



ROUTINE. 
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■3? 

66898 
06699 
08180 

00101 
00102 
00103 

09104 

00105 FC00 
00166 FC0d 
06107 FC83 
08108 FC04 
08189 FC86 
8&U8 FC88 
&0111 FCQR 
08112 FC80 
88113 FC18 
80114 FC12 
88115 

08116 

8811? 
88118 
88119 

em28 

88122 
80123 
88124 
08125 
08126 
8812? 

88128 FC14 

88129 FC16 

88138 FC1.8 
88131 FC1R 
©8132 FC10 

88133 FC1F 

88134 FC21 

88135 FC24 
60136 FC26 
8813? FC28 
80138 FC2R 

88139 FC2C 
80 3F 

89141 FC3Q 
08142 FC32 
88143 FC34 






INITIRLIZRTION 



* THE INITIRLIZRTION 

* UP8N SYSTEM RESET. 



R8UTINES SET UP THE INITIRL VRLUES 



8E 

38 
OF 
OF 

86 
B7 
CE 
OF 

OF 



ORG $FC80 

81FF RESTRT LOS U$1FF 

TSX 

Sm—SRCRStF- 



\r 



8C 
IF 

F041 
&FFF 
8E 

±R 



STX 
LOB R 

str r 

LOX 
STX 
STX- 



BUFROR 

%$1F 

KBOPIRi-1 

®$FPF 

BUFENO 

ENOMEM 



SETS STRCK P8INTER 

MOVES STK PTR TO INDEX REG 

SETS RSSEMBLR OUTPUT PTR » 

I NIT INPUT BUFFR RDDR. 

INTLZ. KEVBORRO PIR. 

PIR CONTROL REG. ROORESS.^ 

LRST LOCRTN OF MEMORY. 

I NIT END-QF-EDIT BUFFR. 

I NIT END-OF-NEM ROOR. 



# 



COMMRNO LRNGURGE 

THIS EXECUTIVE RCCEPTS COMMRNOS FROM THE KEVBORRO TO 
0ETEPJ1INE NHRT UTILITY IS TO BE RUN. INVRLIO COMMANDS 

MILL SPRCE THE CURSOR OONN ONE LINE. 00 NOT SPRCE OFF THE 
BOTTOM OF THE SCREEN. 



80 21 
80 25 

80 73 
BO FE71 

81 01 
26 83 
BO F'PRI 
81 85 
26 &2 

80 30 

81 1.2 
26 82 

BSR 
81 84 
26 E4 
?E FE64 



EXEC BSR HOME 

. .. .. BSR __CL£flR 
EXECl "^SSRHZ^Ef 



JSR 

CMP R 

BNE 

JSR 

EXEC2 CMP R 
BNE 
BSR 

EXECS CMP R 

BNE 
REEOIT 



EXEC4 



CMP 
BNE 
JMP 



TNPCHR' 
§$81 
EXEC2 
RSMBLR 
#$85 
EXECS 
EOITOR 
§$12 
EXEC4 ■ 
GOES TO 
»$84 , , 
EXEG%). 
OEBUG 



A' 



CSRPTR IS HOMED. 

CLERRS SCREEN 
CRLF FOR NEN LINE. 
GETS & OISPLRYS CHR. 
TESTS IF RSSEMBLY COMMO. 033^ 
SKIPS IF OTHER COMMRNO. 
JUMPS TO RSSEMBL PRROGRM. 
TESTS IF CONTRL '£"". 
SKIPS IF NOT EDIT CMO. 
JUMPS TO EDIT TEXT. , , 

TESTS FOR R tR COMMRNO. ■ CP»c P-_ 
SKIPS IF NOT R REEOIT COtlNM 00140 FC2E 
REEOIT TEXT. 

TESTS FOR CmiRL-^D'. 
SKIPS BRCK FOR R NEN COMNO. 
JUMPS TO DEBUGGER. 
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60145 
00146 
00147 
00148 
60149 

00150 

00151 

08152 

00153 
00154 
09155 
60156 

0015? 

00158 
00159 

00160 
00161 

©0162 

80163 
60164 
60165 
08166 

0016? 

08168 
00169 
6017Q 

Q0171 

00172 

00173 
00174 
$0175 
00176 

0017? 

00178 

03179 

00180 

80181 
08182 
09183 
001S4 
00185 
00186 

0018? 

00188 

Mil 

00191 

00192 
Q0193 
00194 
00195 
60196 

0019? 

00198 
0&199 

00200 
€j0201 



* 
* 



THE EDITOR 



THE EDITOR RLLOHS INPUT FROM THE KEYBORRD INTO R 
BUFFER MEMORY. INPUT IS DISPLAYED ON THE SCREEN. UHEN 
IT IS TYPED IN.. THE SCREEN TEXT CBN THEN BE EDITED BY USE 
OF THE CURSOR. UHEN THE SCREEN IS FULL OR EDITING IS 
FINISHED, THE DRTR IS SCROLLED OFF THE SCREEN INTO THE 
EDIT BUFFER. UHEN TEXT IS SCROLLED OFF THE TOP OF THE 
SCREEN, IT IS STORED FROM THE BUFFER RDDRESS POINTER 
(BUFRDR) TO THE LOW BUFFER POINTER (8UFFLQ). BUFFLO 

* POINTS TO THE END OF TEXT + ONE (I. E. IT POINTS TO THE 

* FIRST UNUSED BYTE). UHEN IT IS SCROLLED OFF THE BOTTOM 

* OF THE SCREEN.. IT IS STORED IN THE TOP OF THE EDIT BUFFER. 

* THE TEXT GOES FROM THE HIGH BUFFER POINTER (BUFFHI) TO 

* THE END OF BUFFER POINTER (BUFEND). BUFFHI POINTS TO 

* THE END OF TEXT - ONE (I. E. IT POINTS TO THE LRST UNUSED 
BYTE IN THE BUFFER). NHEN THE TEXT IS SCROLLED UP 
OFF THE TOP OF THE SCREEN.. TEXT IS TRKEN FROM THE HIGH 
RRER OF THE EDIT BUFFER RND DISPLRYED ON THE LRST LINE OF 
THE SCREEN. NHEN TEXT IS SCROLLED DOHN OFF THE BOTTOM, 
TEXT, IF RNY EXISTS, IS MOVED FROM THE LOU EDIT BUFFER 
RRER TO THE TOP LINE OF THE SCREEN. 



* 

* 

* 
* 

* 

* 



CSRPTR 
SCNPTR 

BUFRDR 
BUFEND 
BUFFLO 
BUFFHI 
BUFLEN 



POINTERS USED 

POSITION OF CHRRRCTERS INSERTED ON THE SCREEN. 

POSITION OF STRRT OF EDITED TEXT ON SCREEN. 

STRRT OF TEXT BUFFER IN PffilN MEMORY. 

END OF TEXT BUFFER IN MRIN MEMORY. 

END OF TEXT SCROLLED OFF TOP OF SCREEN. 

STRRT OF TEXT SCROLED OFF BOTTOM OF SCREEN. 

NOT CURRENTLY USED. \, 



EDITOR CONNRNDS 



-v 



-UP RRROW MOVES CURSOR UP ONE LINE; CSRPTR, GETS 

CSRPTR-32J CRLL NDRFLO. 

"DOWN RRRON" MOVES CURSOR DOHN ONE LINE; CSRPTR GETS 
CSRPTR*32j CRLL OVRFLO. 

"RIGHT RRRON" MOVES CURSOR ONE POSITION RIGHTj' CSRPTR 
GETS CSRPTRHj CRLL OVRFLO. 



mmz e? 


>5 PDS-V3N 


00202 


C T 


08204 




08205 


C 


00206 


00207 


'"■™* 


00208 




00209 




00210 




00211 




60212 


Bt 


00213 




00214 




80215 


%^L, 


08216 


V"«A 


90217 


00218 


00219 




00220 




00221 




09222 


i 


60222 




0B224 




BB225 




wm?2$ 




00227 ■ 




00228 




00229 




60220 




90231 




00232 




00233 




98234 




60225 




06236 




00227 




0023S 




60239 




0024O 




00241 




'Q0242 




00243 




00244 




0Q245 




00246 




00247 




60248 




00249 




00250 




+251 




WB252 




09253 




00254 




60255 




06256 





* "LEFT ARRON" MOVES CURSOR ONE POSITION LEFT; CSRPTR 

* GETS CSRPTR-1; CALL NE>RFLQ. 
* 

* "CONTROL £ LEFT FIRROU (ON KEYBOARD)" LEFT JUSTIFY CURSOR; 

* CSRPTR GETS CSRPTR TRUNCATED.; CALL NDRFLO FOR SCNLOC CHK. 
# 

* "PUTCHR" OUTPUTS CHARACTER; CSRPTR GETS 

* CSRPTR+lJ GOES TO OVRFLO. 

* "ENDCHR" TERMINATION CHARj CLEAR EDIT FLAG; 

* EXIT THE- EDITOR. 
* 

* "HONE" HONES CURSOR POINTER; CSRPTR GETS E600; NDRFLO. 

* "CLEAR" CSRPTR TO END OF THE SCREEN GETS SPACES 

* -CTRL I" INSERT A LINE AT THE G&&T LINE ON THE SCREEN; 

* CALL 0VR1 (SCROLLS 1JP ONE LINE); CSRPTR GETS €±€0C 

* "CTRL D" DELETE b&k LINE; SCROLL oUtN (UNDR2); 

* CSRPTR GETS €££& . „ • M 

* QVERFLOH CHECKS IF SCROLL UP IS NEEDED; IF IT IS, IT 

* SCROLLS UP AND MOVES DATA TO & FROM THE BUFFEERS. 

* OVRFLO: IF CSRPTR < E20Q THEN RETURN; IF EDIT IS ON THEN 



* OVRt: 



BUFFLO+ GETS SCNPTR TO 'C. R. 



* DSTADR GETS CSRPTR GETS E1E0 (LAST LINE ON SCREEN); 

* IF EDIT IS ON AND BUFFHI < BUFEND THEN MOVE THE TEXT 

* (THE STRING FROM BUFFHI TO 'C. R. '"> TO THE LAST LINE. 

* UNDERFLOW CHECKS IF SCROLL DONN IS NEEDED AND MOVES 

* DATA TO AND FROM THE BUFFERS. CURSOR HAD BEEN 

* MOVED OFF THE TOP OF THE SCREEN AND IS NOU PUT AT THE 

* HONE POSITION ON THE SCREEN 
# 

* NDRFLO: IF CSRPTR > DFFF THEN RETURN (GO TO OVRFLO); 






IF EDIT FLAG IS ON THEN HOVE LAST LINE TO BUFFHI 
ON DONN; SCRLDN; CSRPTR GETS EOOO; HOVE LINE FROM 
BUFFLO TO FIRST LINE ON THE CRT. 



NOTE: DON'T SCROLL OFF SCREEN IN EXEC UNTIL AFTER 
THE EDITOR HAS BEEN RUN. 

NOTE: EVERY LINE MUST HAVE A C. R. ON IT. 
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00258 

00259 

90266 

08261 

96262 

90263 

00264 

80265 

0B266 

£10267 

60268 

B9269 

00278 

00271 

66272 

86273 

66274 

08275 

68276 

H6277 

Q6278 

06279 

06286 

68281 

B8282 

68283 

06284 

Q6285 

Q6286 

66287 

06288 

66289 

66296 

'66291 

Q6292 

Q8293 

69294 

66295 

. 66296 

68297 

68298 

88299 

68386 

vm 

86363 
66364 
60365 
66386 

68367 
66368 

00509 
86316 
68311 

.66312 

tjQ313 



FC37 CE E608 HOME 
FC3R DF IC 

FC3C 39 



FC3D C6 66 
FC3F CE £"200 
FC42 89 
FC43 E7 06 
FC45 9C IC 
FC4? 26 F'9 
FC49 39 



CLERR 



CLERR1 



LDX 

srx 

RTS 



urn s 

LDX 

DEX 
STR B 
CPX 

SHE 
RTS 



SI + I- i l O '».' 

CSRPTR 



LORDS HOME POSITION. 
STORES HONE IN CURSOR 
RETURNS TO CRLLER. 



PTR. 



##£# ■ LORDS BLRNK <C. R. ). 
#LRSTCH+i LORDS END-OF-SCPEEN PTR. 

DECREMENTS BLRNKING PTR. 
0,X - BLANKS LGCRTION. 
CSRPTR TESTS IF DONE. 
CLERR1 BRUNCHES BRCK IF NOT DONE. 

RETURNS. 



FC4R DE 

FC4C 63 
FC4E CE 
PCS1 89 
FC52 27 

FC54 rss 

FC561B5 

FC59 27 

FCSB 

FC5D 

FC5F 

FCS1- 

FC63 

FC66 



* 



GETCHR INPUTS R CHRRRCTER INTO HCC R WITHOUT 

MOVING THE CURSOR.. FIND BLINKS THE CURSOR. 



IC, - CETt.NR 

26FQ 

8ET1 



DE 

m 

2R 
63 
B6 
39 



LDX,, mi) _ CSRPTR 
CON mh 8, X 

LDX ®9968 
DEX 

F6 BEQ GETCHR 

4W'"-\' —n>ft R #*40 

FQ41*F0gil BUR KBDPIR+1 

F6 | -™v?R_BES GET! ■ 

l.C,^ LDX ~ ' CSRPTR 

~miy -rs-i * i^flCfl 0, x 

&2 BPL ■ QET2 

68 ■ CON ©, X 

F64Q GET2 LDR ft KBDPIR 
RTS 

V3P 



^ 



LORDS CRT CURSOR POSITION. 
COMPLIMENT (FLRSH POSITION). 
LORDS BLINK COUNT VRLUE. 
COUNT GETS COUNT-1. 
RESETS CTR NHEN TIMED OUT. 
LORDS NRSK FOR CR2 FLRG. 
TESTS IF R CHRP. TYPED IN. 
BRfiNCH IF CHRP NOT ENTERED. 
LORDS CURSOR POSITION. 
TESTS IF BLINKND (SOLID). t 
SKIPS IF NOT BLINKED. 
CLERRS THE CHRRRCTER. 
LORDS R 141 TH KE V BRD CHRP. 
RETURNS TO CALLER. 



P000 



*?&*i 



FC67 
FC69 

FCSB 
FC6D 
FC6F 



FC75 
FC77 



DE &C 
DF 26 
DE &E 

DF 22 
8D C6 

97 32 
DE IC 
DF 24 



EDITOR LDX 

SIX 
LDX 
STX 

REEDIT BSR 



FC79 

FC7B 

PC7D 
"FC7F 
FC82 
FC83 
FC85 



8D 

81 

26 
7f 

39 
8D 

26 



CF '. 

IB 

84 

6632 

em 

F2 



EDITED 

EDI TIN LDX 

STX 



EDRERD BSR 
ENDCHR CMP R 
BNE 
CLR 

RTS 

EDI BSR 

BRR 



EDITOR IS THE MR IN ENTRY POINT FOR EDITING. 



BUFRDR BUFFLO GETS THE 

8UFFL0 VRLUE OF BUFRDR. 

BUFEND BUFFHI GETS THE' 

BUFFH1 VRLUE OF BUFEND. 

HONE ENTRY- POINT FOR 

CJ ERR RE-EDITING TEXT. 

MTT TURNS ON EDIT MODE. 
CSRPTR ■ SETS SCNPTR TO CSRPTR. 
SCNPTR 



m 



GETCHR ' X GETS CSRPTR & R GETS CHR\fi 

#$1B TESTS FOR RN "ESC" CHRP. 

EDI ■ SKIPS IF NOT EDIT END. 
EDIT TURNS OFF EDIT FLRG. 

EXITS THE EDITOR. 
INSERT EDITS CHRRRCTER. 
EDRERD GOES FOR NEXT, CHRRRCTER. 



uV 



M 



{IZ 89? PD5-V3N 



00315. 


m .'•- 






&0316 


* 






8031? 


* 


FOLLOWING IS Tt 


00316 


* 






B9319 


* 






00329 


* 






00321 


# 






00322 l 


# - 






&B323 FC8? Bl BO 


CR 


CMP ft 


#$90 


60324 FC89 2D RC 




BLT 


HOME 


00325 FC88 2E. 12 




BGT 


RTCSR 


60326 FC8D 86 60 


CR1 


LOR ft 


#$66 


60327 


* 






08328 


# 






88329 


# 






88330 


* 






00331' FC8F 81 09 


INSERT 


CMP R 


U$89 


00332 FC91 2t> 16 




BLT 


OELETE 


98333 FC93 2E F2 




BGT 


CR 


80334 FC95 06 3:2 


INSRT1 


LOR B 


EOIT 


00335 FC97^ 2? 03 




BEQ 


INSRT2 


80336 FC99 BO F046 




JSR 


M0VE2 


8033? FC9C 7£ F074 


INSRT2 


JHP 


SCRLON 


Q8J38 


* 






^839 


* 






W340 


* 






68341 FC9F 81 12 


RTC5R 


CMP R 


$$12 


88342 FCR1 20 28 




BLT 


SUB32 


88343 FCR3 2E 88 




BGT 


LFTCSR 


88344 FCR5 OE 1C 


RTRRROdLM 


CSRPfR^' 


00345 FOR? 20 IF 




BRR 


PUTCH1 


00346 


*• 






0034? 


* 






89348 


* 






00349 FCR9 80 6? 


OELETE 


BSR 


8VR1R 


88358 FCRB 28 48 




BRR 


CVR3 


88351 


* 






88352 


* 






80353 


* 






80354 FCRO 81 1.4 


LFTCSR 


CMP ft 


$$14 


08355 FCRF 20 24 




BLT 


R0032 


68356 FCB1 2E #3 




BGT 


CLER 


88357 FCB3 89 




OEX 




88358 FCB4 26 2:5 




BRft 


R002 


08359 


* 






88360 


*• 






88361 


* 






86362 FCB6 81 IF 


CLER 


CMP ft 


#$1F 


08363 FCB8 20 S3 




BLT 


CLERR 


4*864 FCBR 2? 41 
W365 


# 


BEQ 


LFTJST 


88366 


* 






8836? 


* RLL ^ 


OTHER C 


HRRRCTERi 


80368 


* 







TESTS F6R CRRRIRGE RETURN. 
SKIPS IF HONE CURSR C8MN0. 
G6ES TO NEXT C6MN0 TEST. 
LOROS INTERNRL C. R. VftLUE. 



-% 



TESTS FOR R CONTROL 'I'. 
SKIPS TO OELETE COMMO. 
SKIPS FOR NEXT TEST. 
TESTS IF EOITOR IS ON. 
SKIP TO EXIT IF EOITOR OFF. 
MOVES LRST LINE TO BUFFHI. 
MOVES ftLL LINES OQHN ONE. 



TESTS FOR RIGHT RRRON. 
SKIPS IF ftN "UP ftRRON". 
SKIPS IF ft "LEFT RRROH". 
LOROS CURSOR POINTER. 
STORES & INCREMENTS CSR. 



SCROLLS UP ONE LINE. 

MOVES NEN LRST SCREEN LINE. 



TESTS IF "LEFT RRRON". 
SKIPS IF "OONN RRRON". 
SKIPS FOR NEXT TEST. 
SUB. 1 FROM CSRPTR. 
STORES CURSOR POINTER. 



Uj /Vtfwf 



TESTS FOR CTRL BRCK RRRON. 

GOES TO CLERR SCREEN. 

MOVES CSR TO LEFT OF SCREEN. 



FRLL THRU TO PUTCHR. 
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83370 

89371 
00372 
00373 
08374 
'80375 
08376 
80377 
68378 
88379 
883S8 
88381 



80382 
08383 



FCBC 
FC3E 
FCC0 
FCC2 
FCC4 
FCC6 
FCC8 
FCC9 



DE 
81 
27 
ft? 
81 

88 
28 



PUTCHR DISPLAYS ft CHRRRCTER GN THE CRT DISPLftY AND 
INCREMENTS THE CURSOR POINTER RS NELL RS CHECKING 
RND HANDLING CARRIAGE RETURNS. 



* — ■ — -^l, 

l.C PUTCHR (LDX CSRPTR^ 

&t> a i tp~fr~'w$ffl 

&4 SEQ CRLF1 

80 SldJ 0± X 

68 :/^~ CMP ft ¥$60 \ 

4C ( CRLF1 BEQ _CRLF^ J 

IPVTCHl INX 
10 BRft RDD2 



J^ 



>'■'-■ 



t.k 



;w< 



c. 

L. 



R. 
F. 



LORDS OLD CSRPTR. 
TESTS FOR EXTERNAL 
SKIPS TO DO ft C. R. 
DISPLAYS CHAR ON SCREEN. 
TESTS FOR INTERNAL C. R. 
SKIPS FOR CR. LF. 
INCREMENTS CSRPTR. 
TESTS FOR OVRFLO £ UNDRFLO. 



88385 FCCB DE ±C 


SUB32 cj-DX 


CSRPTR 


88386 FCCD C6 28 


LDJTB 


§32 — "' 


88387 FCCF 89 


SUB32R DEX 




00388 FCDO 5R 


DEC B 


- 


08389 FCD1 26 FC 


BNE 


SUB32A 


08390 FCD3 28 86 


BRA 


RDD2 



f LORDS CURRENT CRSR POSITION. 
LORDS LOOP COUNT. 
DECREMENTS CSRPTR. 
DECREMENTS LOOP COUNTR. 
SKIPS BACK IF NOT DONE. 
SKIPS TO CHECK UNDRFLO. 



88392 FCD5 C6 2:0 


ADD32 


LDA B #32 


88393 FCD7 88 


ftDD32ft 


INX 


88394 FCD8 5A 




DEC B - 


88395 FCD9 26 FC 




BNE ADD32A 


Q0396 FCDB DF 1C 


ftDD2 


STX CSRPTR 



LOADS LOOP COUNTER. 
INCRE. CSRPTR IN INDEX. 
DCEREMENTS LOOP COUNTER. 
SKIPS BACK IF NOT DONE. 
SAVES CSRPTR. 



88398 

88399 

88408 

08401 

00402 * 

88403 FCDD 8C E888 NDRFLO CPX 

gg*g m is m m 

80406 FCE4 8D 32 BSR 



* NDRFLO (UNDERFLON) CHECKS FOR THE CURSOR GOING OFF THE 

* TOP OF THE SCREEN. THE INDEX "REG. CONTAINS THE CURSOR 

* POINTER I4HEN THE ROUTINE IS ENTERED. 

* ' \ 



#$£8B0 TESTS IF CSRPTR >= DFFF, , 
MOVES MOVES BUFFLO TO TOP OF CRT, 



-*?/*? 



PR6i~ 889 PDS-V3N 



■ &04B9 

00418 

1411 

■f,j,.:- 

0B413 
00414 
09415 



* 



lb 

6641? 
60418 
80419 
06420 
60421 
88422 
80423 
60424 
60425 
00426 
8042? 
80428 
88429 
88438 
80431 
08432 
88433 
88434 
88435 
JJ0436 
W43? 
88438 
88439 
88448 
88441 
88442 
88443 
08444 
80445 
08446 
8844F 
00448 
80449 



FCE6 

FCE9 
FCEB 
FCED 
FCEF 
FCF1 
FCF3 
FCF5 
FCFJ 

k* $_• f* S* 

FCFB 



FCFO. 
FCFF 
F08, 
FD83 



FD04 

Ft>m 

FD68 
FD8R 
FD8C 
F08E 
FD18 
F012 



OVERFLOW CHECKS FOR SCROLLING UP (CURSOR IS OFF 
THE BQITON OF THE SCREEN).: INDEX CONTRINS THE CURSOR 
POINTER UPON ENTRY 



8C E288 
<cB 18 
80 17 
06 32 
27 
OE * 
9C @E 
2? 8C 
80 J:C 
OE 14 
OF 22 



->2 



06 SeL 

2? m 

DE 28 
DF 16 
OE 24 
80 26 
OF 28 
20 4B 



® 
OVRFLO 



0VR3 



x< 



CPX 
BMI 
BSR 
LOR 
r: BEQ 
LOX 
CPX 
BEQ 
BSR 
LOX 
STX 



*$ES90 - 

OVREXT 

0VR1 

EOIT 

OVREXT 

BUFFHI 

BUFENO 

OVREXT 

M0VE1R 

SRCROR 

BUFFHI 



TESTS RNO EXITS IF 

CURSOR ON SCREEN, c 
DOES 0VR1 CHECKING. 
TESTS IF EOIT IS ON. 

IT IS OFF. 

TEXT POINTR. 

PTRS NOT EQU. 

NO TEXT. 



EXITS 

LOROS 

TESTS 

EXITS 

MOVES CHRS 

RESETS NEN 

LOCRTION. 



IF 
HI 
IF 

IF 



TO LRST 
BUFFHI 



LINE. 




FOLLOWING ROUTINE MOVES THE CURSER TO THE LEFT. 



B CSRPTR+1 LOROS LOW BYTE OF 

B §$EB TRUNCRTES TO LEFT 

B CSRPTR+1 SRVES L. J. EO PTR. 
RETURNS TO EOITOR. 



PTR. 

OF L 



INE. 



OVR1 OOES RCTURL SCROLLING UP. 



LOR 

rBEQ 
LOX 
STX 
LOX 
BSR 

OVR1RWRR 



B 



EOIT 

OVR1R 

BUFFLO 

DSTROR 

SON FTP 

MfitiC'1 

fwvfcz 

BUFFLO 

SCRLUP 



TESTS IF EOIT IS ON. 
SKIPS IF EOIT OFF. 
LORDS TEXT PTR LON. 
DESTINRTION OF TEXT MOVE. 
SOURCE FOR HOVE. 
MOVES LIN1 TO BUFFFLO. 
SRVES MEN BUFFLO PTR. 
SCROLLS SCREEN UP L 



80451 
00452 
68453 
88454 



F014 80 
F016 28 



BF 
E5 



CRLF 



FOLLONING ROUTINE MOVES THE CURSOR. 



BSR 
BRR 



R0032 
LFTJST 



LINE FEED. 
CRRRIRGE RETURN. 



WRGE 818 



PDS-V3N 



00456 

68457 

80458 

89459 

0O460 

00461 

00462 

80463 

88464 

88465 

88466 

88467 

88468 

80469 

68470 

88471 

88472 

68473 

88474 

88475 

88476 

88477 

88478 

88479 

88488 



FD18 
FD1R 
FD1C 
FD1E 
FD28 
F022 
FD23 
FD25 
FD27 
FD28 
FD2R 
FD2C 
FOSE 
FD2F 
FD31 



OE 2:4 
OF 16 
DE 20 
9C 8C 
27 213 
89 
9C &C 



w t 



7 08 
89 

E6 80 
CI 68 
26 F5 
08 

OF 28 
28 83 



* MOVE INSTRUCTIONS MOVE FROM ONE BUFFER RRER TO 

* RNOTHER BUFFER RRER. 

* M0VE3 CRLCULRTES THE SOURCE RDDRESS OF THE DRTR IN 

* BUFFLO <IF IT EXISTS) FOR MOVING TO THE FIRST LINE ON 

* THE CRT. MOVE 1 IS THEN ENTERED TO DO THE MOVING. 



N0VE3 



MV31 



MV32 



LDX 

STX 

LDX 

CPX 

BEQ 

DEX V, 

CPX 

BEQ 

DEX 

LDR B 

CMP B 

BNE 

INX 

STX 

BRR 



SCNPTR 
DSTRDR 
BUFFLO 
BUFRDR 
NOVEXT 

BUFRDR 
NV32 

8.. X 

®$68 

NV31 

BUFFLO 
M0VE1 



CSRPTR GETS E808 (HOME). 
SETS MOVE RDDRESS. 
LORDS LO BUFFR RDDR. 
TESTS IF STRING EXISTS. 
EXITS IF EMPTY. 
MOVES BRCK FROM BLRNK., 
TESTS IF SRCRDR = BUFFRDR. 
MOVES IF STRRT OF LINE. 
NEXT LONER CHRRM^- u °' 
GETS SOURCE CHRR FOR TEST. 
TESTS FOR "C, R, ". 
SKIPS BRCK UNTIL "C. R. ". 
POINTS BRCK TO FIRST CHRR. 
SRVES LO RDDRESS. 
MOVES DRTR. 



88482 

Q8483 

08484 

68485 

80486 

88487 

80488 

88489 

80490 

88491 

88492 

08493 

68494 

88495 

88496 

88497 

88498 

88499 

80580 

88501 

80502 



FD33 

FD35 
FD36 
FD38 
FD3R 
FD3C 
FD3E 
FD3F 
FD41 

FD45 



DE 14 
68 

E6 88 
OF 14 
DE 16 

E7 ee 

88 
OF 1.6 



CI 

§1 



68 

EE 



MOVE! 

M0VE1 MOVES R SET OF CHRRRCTERS FROM EITHER THE TOP 
LINE OF THE SCREEN TO BUFFLO OR FROM BUFFHI TO THE 
BOTTOM LINE OF THE SCREEN. THE SOURCE RDDRESS IS PRSSED 
IN THE INDEX REG. , THE DESTINATION RDDRESS IN DSTRDR, 
RND THE MOVE IS TERMINRTED BY R "C R. " IN THE LINE OF 
TEXT BEING MOVED. 



* 
* 



MOVE 

N0VE1R 

NQVE1 



MQVEX 



LDX 
INX 
LDR 
STX 
LDX 
STR 
INX 
STX 
CMP 

XT M 



B 



B 



SRCRDR LORDS SOURCE RDDRESS INTO X. 

POINTS TO NEXT SOURCE CHRR. 
0,X LORDS SOURCE CHRRRCTER. 

SRCRDR SRVES THE SOURCE POINTER. 
DSTRDR LORDS DESTINRTION RDDRESS. 
0,X STORES CHRR. IN DESTINRTION. 

.. NEXT DESTINRTION RDDRESS. 
DSTRDR : SRVES DESTINRTION PTR. 
#$68 TESTS IF MOVE FINSHED (CR>. 

MOVE SKIPS BRCK IF NOT DONE. 

Returns to crller. 



r/TUC WXi. 



ri/^>— Vv>|if 



00596 
00507 

&@ses 

06509 

00518 
Qpill 

M512 
00513 
00514 
00515 

B0516 
00517 
00518 
00519 
00520 
00521 
00522 
0&S23 
00524 
00525 
00526 
00527 
00528 
06529 
00538 
00531 



M0VE2 



SUBROUTINE 



FD46 
FD49 
FD4R 
FD4B 
FD4D 
FD4E 
FD50 
FD52 
FD54 
FD56 
FD57 
FD59 
FD5R 
FD5C 
FD5E 



CE E1E0 
5F 
37 \ 
E6 00 
08 

CI 60 
26 F'8 
DE 22 
E7 £10 
09 

OF 22 
33 
CI &0 



* THE M0VE2 SUBROUTINE MOVES THE LRST LINE ON THE 

* SCREEN TO THE HIGH RRER OF THE BUFFER (BUFFHI> DURING 

* SCROLLING. THE TEXT IS TENPQRRRILY STORED ON THE STRCK 

* DURING THE HOVE. THE HOVE IS TERMINRTED BV R "C. R. ". 

* THE TEXT IS STORED RT BUFFHI ON DONN. 



* 
* 
* 
M0VE2 



LDX 
CLR B 
MV21 PSH B 
LDR B 
INK 
CMP B 
BNE 
LDX 
3 STR 
DEX 
CSTX 
PUL B 
CMP B 
26 F6 USNE 

39 NOVEX RTS 



MV22 
MV23 



HLRSTLN 



07X 

%$60 
HV21 
BUFFHI 



B O, X 



BUFFHI 

#00 

MV23 



X GETS RDDR OF LRST LINE. 

SETS TERNINRTION FOR 

POPPING. 

LORDS SOURCE CHRR. 

POINTS TO NEXT CHRR. 

TESTS IF LINE TO "C. R. " 

MOVED TO STRCK. 

I NIT. DESTINRTION. 

STORES CHRR. 

POINTS TO NEXT LOCRTION. 

UPDRTES BUFFER PTR. 

GETS NEXT CHRR. 

TESTS IF RLL CHRS STORED. 

SKIPS BRCK IF NOT STORED. 

RETURNS TO CRLLER. 



00533 

• 534 
www 

O0536 

00537 
00538 
00539 
00540 
00541 
00542 
00543 
60544 



FD5F 
FD62 
FD64 
FD66 
FD67 
FD6R 
FD6C 
FD6E 
FD70 
FD73 



CE 
E6 
E7 
08 
8C 
26 
DF 
DF 
BD 
39 



20 

00 

E1E0 

F'6 

1C 

1.6 

FC3D 



SCRLUP LDX 
SCRP1 LDR B 
STR B 
INX 
CPX 
BNE 
STX 

STJTZ 

JSR 
RTS 



SCROLLUP MOVES 

s# 40m ecu 

$20, X 



RLL LINES UP 1, & CLERRS LRST LINE. 



00.. X 

8LRSTLN 
SCRP1 

CSR PT R 

DSTRW; 

CLERR 



SETS CRT HOME POSITION. 
GETS CHRR' FROM NEXT LINE. 
STORES CHRR ON PREV. LINE. 
POINTS TO NEXT LINE. 
TESTS IF MOVE DONE. 
GOES BRCK IF NOT DONE. 
SETS CSRPTR TO LRST LINE. 
INIT DEST FOR NEXT MOVE. 
CLERRS LRST LINE. 
EXITS. 



'{-'■ w 





- 0$ 




(t%U& 




;w 




Qfrl 



PFIGE 


012 


PDS-V3N 






JO 54 6 






* 


SCRLDONN MOVES 


06547 






* CLERRS THE 


TOP LINE 


60548 






* 






00549 


FD74 


CE E1DF 


SCRLDN 


LDX 


8LRSTLN 


06550 


FD77 


E6 00 


SCRD1 


LDR B 


6,X 


00551 


FD79 


E7 20 




STR B 


$20, X 


00552 


FD7B 


OF 1C 


^STX 


CSRPTR 


00553 


FD7D 


09 \ 


JA-"*"' 


DEX 


4,m**tVA-i 


00554 


FD7E 


8C DFFF 




CPX 


'•$~$DF~FF 


00555 


FD81 


26 F4 




BNE 


SCRD1 


60556 


FD83 


C6 68 




LDR B 


#$68 


00557 


FD8S 


88 


SCRD2 


INX 




0055S 


FDS6 


E7 00 




STFI B 


ftX 


60559 


FDS8 


8C E81F 




CPX 


§FRSTLN 


60560 


FDSB 


26 F8 




BNE 


SCRD2 


09561 


FD8D 


39 




RTS 





RLL LINES DONN ONE RND 
ON THE SCREEN. 

-1 INITIRLIZES THE POINTER. 
LORDS DRTR TO BE MOVED. 
MOVES DRTR OOUN ONE LINE. 
SRVES CURSOR. 
POINTS TO NEXT BYTE. 
TESTS IF MOVE FINISHED. 
SKIPS BRCK IF NOT DONE. 
LORDS BLRNK TO CLERR LINE. 
POINTS TO NEXT CHRRRCTER. 
CLERRS BYTE ON LINE 1. 
TESTS IF LINE 1 CLERRED. 
SKIPS BRCK IF NOT CLERRED. 
RETURNS. 



08563 
89564 

88565 
88566 
88567 
88568 
88569 
88570 
88571 
86572 
88573 
88574 

vUiJi v.' 

8&57S 
88577 
00573 



FD8E 
FD98 
FD92 
FD94 
FD97 
FD99 
FD9B 
FD9D 
FD9E 
FDR8 



DE 
86 
DF 
BD 
DE 
9C 

27 83 
88 

28 F8 
:<:9 



/ 

'■■■■/ 

/ 

1:1 

08 

IE 

F'CBC 

1.E 

BR 



OUTSTR 
0UT1 



OUTSTRING PRINTS OUT THE STRING BETWEEN THE 
OUTBUF POINTER RND THE BUFEND POINTER. 



0UT2 
* 



LDX 

LDR 

STX 

JSR 

LDX 

CPX 

BEQ i 

INX^ 

BRR 

RTS 



R 



OUTBUF 
&X 

BUFPTR 
PUTCHR 
BUFPTR 
OUTEND 
0UT2 

0UT1 



BUFPTR GETS STRRT OF TEXT. 
LORDS CHRP TO BE PUT OUT. 
SRVES SOURCE POINTER. 
PRINTS CHRRRCTER. 

RESTORES POINTER. 
TESTS FOR END-OF-TEXT. 
EXITS IF END OF TEXT. 
INCRE. PTR TO NEXT CHRP. 
GOES BRCK FOR NEXT CHRP. 
EXITS ROUTINE. 



END OF EDITOR PRGGRRM. 



<N 



PRGE 813 PDS-V3N 



B ! M 



588 

81 
88582 
00583 
0QS84 
00585 
00586 
88587 
60588 
00589 
06590 
00591 
00592 
00593 
09594 
00595 
00596 
00597 
00598 
60599 

00600 

00601 

08602 

08603 
00604 
QM05 
•>W 
00607 
08608 
88609 
08610 
80611 
80612 
80613 
00614 
08615 
80616 
00617 
08618 
80619 
80628 
00621 

88622 
00623 
00624 

80625 
88626 
80627 
08628 



THE MINIASSEMBLER 



THE NINI-RSSEMBLER 15 ft FIXED-FIELD 8NE INSTRUCTI8N 
: .R LINE 2 PRSS RSSEMBLER. THE MINI-RSSSEMBLER FORMRT 

* IS DESCRIBED ON PAGES 9-2 FIND 9-3 OF THE SPHERE 

* OPERRTORS REFERENCE MRNURL 

* THE WO PRSSES PRE REQUIRED TO FORM THE LRBEL 

* RDDRESSES. THE SECOND PRSS EQUATES THE RDDRESS FDR 

* LRBELS REFRENCED BEFORE THEY RRE DEFINED IN THE PROGRRM. 

* 

* ON ENTRY: 

* SRCRSM * RDDRESS OF SOURCE TEXT TO BE RSSEMBLED. 

* BUFFLO = RDDRESSED OF OBJECT CODE PRODUCED. 

* \ 

* ON EXIT: 

* PCVRL (PROGRRM COUNTER VRLUE) * LRST LOCRTION OF 

* THE RSSEMBLED OBJECT PROGRRM. 

* 

* HLGORITHN: 

*RSMBLR: SET PRSS COUNT TO ZERO.; 
*RSN1R: OPERRND VRLUE F0RP1ED IN 

* ft GETS CHRR IN X6 (OPERRND TYPE).; X GETS X+7; 

* IF CHRR X6 IS R "&" THEN ONDVRL GETS VRLUE FROM SYMBOL 

* TRBLE ELSE ONDVRL GETS VRLUE FROM RSCBIN CONVERSION; 
*SYMBL: EQURTES SYMBOL (PC VRLUE IS THE " " SYMBOL 

* LLRBELJ) TO R LRBEL VRLUE: 

* SYMVRL GETS PCVRL.: 

* IF X(l> IS RN *'-" THEN SYMVRL GETS ONDVRL; 

* IF X(l) IS NOT R "s" OR R SPftCE THEN IF SECOND PRSS THEN 

* EXIT ELSE STRRT SECOND PRSS; 

* LRBEL ENTRY IN SYMBOL TRBLE GETS SYMVRL; 
t : LDOP: PUT OPERRTION CODE INTO THE OBJECT CODE: 

* CONVERT X(2)~X(3) INTO BINRRY; 

* SRVE PCVRL; 

* P. C. GETS P. C. +1; 

*QPRND: FORM OPERRND IN OBJECT CODE: 

* FORM ONDVRL INTO PROPER SIZE BRSED ON CODE IN X(6); 

* STORE NEN OPERRND VRLUE IN MEMORY; 

* P. C. GETS P. C. +1 OR 2; 

* GET NEXT LINE OF SOURCE; 

* GO TO RSMlft; 
*• 

# 



SET PCVRL TO DSTRSM; 

"ONDVRL": 



PRGE 014 PDS-V3N 



O0630 
J36631 
jJ8632 

00633 
00634 
60635 
00636 
00637 
00638 
00639 
60640 
00641 
00642 



14 

430544 

00545 

00646 

0Q647 

00648 

86649 

88656 

00651 

00652 

00653 

00654 

60655 

06656 

06657 

66658 

60659 

60666 

66661 

66662 

66663 

66664 

66665 

66666 

66667 

66668 

66669 

66676 

66671 

66672 

66673 

66674 

68675 

66676 

88677 

66678 

68679 

60686 



FORI 

F0R4 

F0R6 

FDR8 

FDRR 

FDRC 

FORE 

F086 

FDB2 

FDB4 

FDB5 

FDB6 

FDS7 

FOBS 

FDS9 

FDBR 

FOBS 

FDBE 

FDC8 



7F Q604 

0E 2:6 

OF 48 

0E 26 

OF &2 

86 68 

E6 07 

CI 48 

27 6B 

68 

68 

68 

68 

68 

88 

88 

BO FF22 



R5MBLR CLR 



RSM1 



RSM1R 



07 

97 



2R 

2B 



8SN1B 



LOS 

STS 

LOX 

STS 

LOR R 

LOR B 

CMP B 

BEQ 

INS 

INS 

INS 

INS 

INS 

INS 

INS 

JSR 

STR B 

SIR R 



RR3 INIT. PR5S CTR TO FRST PR55, 

BUFFLO SETS PC CNTR TO STRRT OF 
PCVRL OBJECT C60E. 

SRCRSN LOROS R00R FOR FIRST LINE. 
TNP1 SRVES RODR OF CURRENT LINE. 

R,S LOROS SYMBOL (LRBEL). 

?,X LOROS 0PERRN0 TYPE C00E. 

#*'<? IF 0, LOROS ORTR IN SYMBOL 
IN0R0R 800RESS, GOES TO SYMBL. 

SETS INOES TO STRRT OF 

0PERRN0 NUMBER. 



RSCBIN CONVRTS # TO BINRRY IN B-R. 
ONOVRL STORES 0PERRN0 VRLUE IN 
0NDVRL+1 ONOVRL 



# 



* 



* FOLLOWING FORMS THE VRLUE FOR THE LRBEL. 



# 



F0C2 

FDC4 

FDC6 

FDC8 

FOCR 

FDCC 

FDCE 

F00Q 

FD02 

F004 

FD06 

F008 

FDOR 

F0D0 

F00F 

FDE8 

F0E2 



DE 

R6 

E6 

DE 

OF 

CI 

26 

DE 

DF 

28 

C1 _ 

2 if 

70 
■•*>? 

39 
07 
28 



&2 

&0 

81 

46 

2C 

30 

86 

2R 

2:C 

&E . 

2.8 

&R 

6684 

en 

04 

C6 



SYMBL 



RSM2 



RSM2R 



LOS TMP1 LOROS ORIG LINE PTR INTO S. 

LOR R 0>S LORDS SYMBOL (LRBEL). 

LOR B l.S LOROS LRBEL CONTROL CHRR. 

LOS PCVRL LRBEL VRLUE GETS PCVRL. 

STS SYMVRL . ; 

CMP B ##'* TESTS IF LRBLE IS EQURTED. 

BNE RSM2 SKIPS IF NOT EQURTED. 

LOS ONOVRL LRBEL VRLUE (SYMVRL) GETS 

STS SYMVRL THE OFERRND VRLUE. 

BRR R^M3 CONTINUES EVRLURTION. 

CMP B ##' TESTS FOR EHD-0F-PR0GRRM. 

BEQ RW13 SKIPS IF SPRCE (NOT END). 

T*T ■ RR3 ■ TESTS IF SECOND PRSS. 

BEQ RSM2R ESITS IF SECOND FRSS. 

RTS ESITS THE ASSEMBLER. 

STR B RR3 SETS CTR TO SECOND PRSS. 

BRR RSM1 GOES BRCK FOR SECOND PRSS. 



FDE4 
FDE6 
FDE8 
FDER 
FDEC 



80 41 
96 2C 

R7 88 
96 20 
R7 61 



* \ 

* F0LL0NING PUTS THE LRBEL VRLUE IN THE SYMBOL TRSLE. 

BSR SYMPTR S GETS SYMBL TRBL ENTRY ROR. E 

LOR R SYMVRL STORES THE LRBEL 

STR R 6,S RDORESS (SYMVRL) INTO THE 

LOR R SYNVRL+1 SYMB6L TRBEL. 

STR R 1*X 



RSM3 



RRGE 815 PDS-V3N 



•Qi 

0, 






J6682 
J683 
584 
m*685 
06686 
0068? 
60688 
866S9 
60690 
00691 
00692 
00693 



FDEE DE 
FDF0 08 
FDF1 08 
FDF2 08 
FDF3 R6 
FDF5 81 
FDF7 27 
FDF9 BD 
FDFC DE 
FDFE R? 



02 



* FOLLOWING FORMS THE 0PERRTI0N CODE 
LOOP 



08 

2:0 

6R 

FF22 
4-8 
08 



LDX 
INX 
INX 
INX 
LOR 
CMP 
BEQ 
JSR 
LDX 
STR 



TNP1 



R 

R 



R 



00694 

88695 
88696 
88697 
0869S 
88699 
88788 
88781 
88782 
80 78S 
09764 
88785 
66706 
68707 
80768 

«?09 
710 

00711 

88712 
86 ? '13 
88714 
68715 
68716 
86717 
88718 
66719 
68726 
68721 
68722 
68723 
68724 
88725 

88727 
88728 

88729 
68736 
86731 
68732 
88733 
^0734 
WB735 



FE88 88 
FE81 OF 



FE83 DE 

FE85 R6 
FE87 DE 
FE89 81 
FE8B 2E 
FE8D 27 
FE8F 81 
FEU 2? 



FE13 



* DE 
FE15 88 
FE16 R6 
FE18 81 
FElft 26 
FE1C 88 
FE1D 28 



FE2? 
FE28 
FE29 
FE2B 
FE2D 



68736 

66737 FE2F 39 





4-6 




62 

&8 
68 
F9 

8B 



FE1F 8D 
FE21 EE 
FE23 OF 
FE25 28 



48 
5F 
9? 
D? 
DE 



66 
68 
2R 
98 



01 

08 

&8 



STX 

# 

* F6LL0I4ING 

* 



OPRND 



LDX 

LDR 
LDX 
CMP 
BGT 
BEQ 
CMP 
BEQ 



LORDS ORIG LINE POINTER. 
SETS X T6 FBI NT TO 

THE OP CODE CHRRS. 

♦ 

0,X GETS OP CODE CHRR INTO R. 

#*' TESTS IF OP C6DE EXISTS. 

8PRND SKIPS IF N6NEXISTRNT. 

RSCBIN CONVRTS OP CODE T6 BINRRY. 

PCVRL LORDS POINTR TO OBJECT CODE. 

6 j. X STORS OP INTG-J2BJECT- £Q9£-. — 

" SETS T8 NEXT OBITQDE LOCTN. 

PCVRL SRVES P. C. POINTER. 



STORES INTO THE OBJECT CODE THE SIZED OPERRND. 



TMP1 LORDS SOURCE LINE P8 INTER. 

6,X LORDS OPERRND SIZE CHRR. 

PCVRL LORDS X NITH OBJ CODE PTR. 

#$'E TESTS LENGTH TYPE. 

RELTIV SKIPS IF RN "R" OPERRND. 

EXTEND SKIPS IF RN "E" SIZE OPRND. 

#*•'£> TESTS IF SIZE CHR EXISTS. 

DIRECT SKIPS IF "D"CQNND EXISTS. 



R 



* 

* FOLLOWING GETS THE NEXT LINE. 
*• 

RSM4 LDX TMP1 LORDS STRRT OF LINE IN 

RSM4R INX ORDER TO FIND NEXT LINE. 

LDR R 6,X LORDS CHRR FROM SORCE LINE. 

CMP R #$66 TESTS FOR R CRRRRGE RETURN. 

BNE RSM4R SKIPS BRK UNTIL C. R. FOUND. 

INX POINTS TO FIRST LINE CHRR 

BRR RSM1R GOES BRCK TO RSSN. NEXT LINE 



* 

* 

* THE FOLLOWING RRE SUBROUTINES USED BY THE MRIN CODE. 

* 
INDRDR 



SYMPTR 
LORDX 



BSR 
LDX 
STX 
BRR 

RSL 
CLR 
STR 
STR 
LDX 
RTS 



R 
B 
R 

B 



SVMPTR 
6,X 

ONDVRL 
SYMBL 



TMP+1 

TMP 

TMP 



GETS CONTENTS OF 
SYMBOL L0CRTI0N. 
STORES RS OPERRND. 
RETURNS TO FIX LRBEL 



VRLUE. 



MULT LRBEL BY 2 TO FORM 
POINTR INTO SYMBOL TRBLE. 
LORDS POINTER INTO THE 
SYMBOL TRBLE INTO X. 



RETURNS 
RETURNS. 



TO CRLLER. 



PRGE 


016 


pds-v; 


?W 




J0739 


FE30 


D6 


iscti 


EXTEND 


LDR B 


60740 


FE32 


E7 


00 




STR B 


00741 


FE34 


08 






I NX 


.J0742 


FE35 


96 


2B 


DIRECT 


LOR R 


00743 


FE37 


R7 


00 




STR R 


60744 


FE39 


08 






INK 


00745 


FE3R 


DF 


40 




STX 


60746 


FE3C 


20 


05 




BRR 


08747 








* 




06748 


i $Z \5-jC 


08 




RELTIV 


INX 


00749 


FE3F 


DF 


40 




STX 


00750 


FE41 


96 


(B..0 




LOR R 


06751 


FE43 


96 


41 




SUB R 


00752 


FE45 


09 






OEX 


00753 


FE4S 


87 


&0 




STR R 


00754 


FE48 


k.0 


C9 




BRR 


00755 








.* 




0Q756 








* 


END 01 


00757 








* 





ONOVRL STORES HI BYTE OF OPERRND 
0,X INTO OBJECT CODE, 

INC PC TO POINT TO NXT NO. 
ONDVRL+1 STORES LO BYTE OF OPERRND 
0*X INTO OBJECT CODE, 

INC & SRVE P. C. TO POINT TO 
PCVRL NEXT BYTE 

RSM4 GOES TO I40RK ON NEXT LINE. 

INCREMENT P. C. PTR TO POINT 
PCVRL TO NXT BYTE <£• SRVE P. C. . 

ONDVRL+1 LORDS LO BYTE OF OPERRND. 
PCVRL+1 FORMS RELATIVE OFFSET. 

INSERTS RELATIVE BYTE INTO 
0.- X OBJECT CODE 

asm goes w rss'mbl NEXT LINE. 

THE ASSEMBLER PROGRAM. 
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O0759 

;OTRL ERRORS O&BBd 



<■•. 



END 
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00682 
0B083 
88884 
68885 
90086 
0B087 
00088 
00089 

08890 
00091 

00092 
00093 
00094 
00095 
00696 



00098 
80099 

00100 

08101 

88182 
88103 
88184 

S.OS 
06 
0? 

08108 
&8 18 9 
88118 
88111 
88112 

08113 

88114 
88115 

88116 

6011? „ m „ 

80118 kSmi " 

08119 

08120 

88121 

00122 

88123 

00124 

88125 

8812 b 

0812? 

88128 

88129 
80138 

(Wi32 
J0133 
08134 
80135 
J 813 6 
8 



<V\ 



■h ) 



* 

Hi 

* 

* 
* 



tu-t? 






! o*j i 



tw fl tiCtt. # 



* 

* 

ft 

# 



0JSWGGE/? 

fWE DEBUGGER FOR THE PDS SYSTEM HAS DESIGNED TO 
PROVIDE A VERSATILE TOOL FOR USE IN PROGRRN TESTING RND 
DEBUGGING. IT RLLQ14S FOR BREAKPOINTS, NINI-RSSEMBLER 
SYMBOL TABLE REFERENCING, STACK MANIPULATION AND 
INPUT IN EITHER HEXADECIMAL, OCTRL OR DECIMAL. 
THE DEBUGGER PRINTS R PROMPT CHARACTER ">" ON EVERY NEN 
LINE. RN INSTRUCTION CRN BE TYPED IN NHENEVER THE CURSOR 
IS BLINKING.. EXCEPT I4HEN Fi NUMBER IS BEING TYPED IN. 
THE DEBUGGER CRLLS THE EDITOR NHENEVER R NUMBER IS TO BE 
INPUT, SO CORRECTIONS CRN BE NROE IF THE URONG DIGIT IS 
TYPED IN THE POINTER "PCVRL" POINTS TO THE CURRENTLY 
OPENED BYTE LOCATION. THE DEBUGGER OPERRTES ON MHRTEVER 
BYTE IS POINTED TO BY PCVRL. FOR FURTHER DETRILS SEE THE 
SECTION ON THE DEBUGGER IN THE OPERRTORS REFERENCE NRHURL. 

THE DEBUGGER IS IMPLEMENTED BY A SMRLL ROUTINE TO SET 
UP ENTRY (DEBUG) RND R LRRGE ROUTINE NHICH DOES R RRNGE 
COMPRRE TO FIND THE PROPER COMMAND RND THEN EXECUTES THE 
COMMAND <RUNBUG>. NOTE THAT SINCE COMMANDS RRE 
DIFFERENTIATED BY RANGE.. ANY KEY STRUCK HILL PRODUCE 
R CQNMRND EXECUTION.. SUCH AS A ", " BEING INTERPRETED 
AS R "*" COMMAND. 



COMMANDS: 



"C. R. " LINE 
" " CHANGE - 
»+" OPNNXT - 
"-" GPNPRE • 
"tB" BRKSET 
CLRBRK 
EXIT - 
GOLOCN 
JUMP 
OPNLOC 
OPNREG 
SETSTK 
OPNTBL 



"tC" 
" tE " 

"tG" 

n tJ" 

n .f. n a 

" TR " 

"£u 



UX" [GO EXEC 



SUBROUTINES. 



INPCHR - INPUTS fl 



- PRINTS ">" OUT ON R NEN LINE. 

■ THE SPRCE COMND CHANGES CONTENTS FROM Y TO 

■ OPENS NEXT LOCATION. 
OPENS PREVIOUS LOCATION. 

- SETS A BREAKPOINT AT THE OPENED LOCATION. 

- CLEARS BRKPOINT. MUST BE . DONE BEFORE EXIT. 
PERFORM ATI - EXECUTE AT BRKPOINT LOCATION. 

- STARTS EXECUTION AT OPENED LOCATION. 

- JUMP TO USERS SUBROUTINE. 

- OPENS LOCATION THAT IS TYPED IN AFTER "0". 

- OPENS THE TOP-OF-STRCK LOCATION. 

- SETS THE STACK TO THE OPENED LOCATION. 

- OPENS LOCATION IN SYMBOL TABLE OF NEXT 

- EXITS THE DEBUGGER - GOES BACK TO EXEC. 



CHR. 






INPNUN 
PNTBYT 
PNTDIG 

NENLIN 
DSPRDR 



INPUTS 

PRINTS 
PRINTS 
PRINTS 
PRINTS 



INTO A AND PRINTS IT. 



A NUMBER INTO B~A FROM THE KEYBOARD. 
RCC R AS 2 HEX DIGITS ON THE SCREEN. 
B~R AS 4 HEX DIGITS ON THE SCREEN. 
ft C. R. AND R "> " ON THE SCREEN. 
BYTE ADDRESS (XXXX> RND BYTE CONTENTS 



:yy> 



AS >XXXX 



VY 



ON THE SCREEN. 
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00138 

09139 

00140 

00141 

00142 
00143 
0Q144 
00145 

00146 

0014? 

00148 
00149 

00150 

00151 

00152 
00153 

00154 
00155 
00156 
00157 
00158 
06159 

00160 
00161 

00162 
90163 
B0164 
00165 
00166 
0Q167 
00168 
00169 

00170 
00171 

00172 
081 73 
00174 
B0175 
801 76 
00177 
00178 



FE4R 



FE4R 
FE4B 
FE4D 

FE4F 
FE51 
FE53 
FE55 

FE5? 



FE59 

FE5B 
FE50 
FE5F 

FE62 
FE63 



FE64 

FE66 
tt»o 
FE6B 
FE60 
FE6F 



00181 

00182 

00183 

00184 

08185 

00186 

08187 

88188 

88189 

JH8198 

C J8191 

098192 

z,80193 

'^18194 



FE71 
FE74 

FE77 



FE78 
FE7R 
FE7C 

FES2 

FE84 



38 

86 
86 

E7 
R? i 

28 



SI 
2D 

2E 
Bl> 
'*?•? 

•S'l 



80 

80 
BO 
DE 
SO 

28 



If 



FES6 
FE88 
FESR 
FE88 

FESE 
FE98 



FE92 
FE93 



ORG 
* 

*■ 
* 

.BKENTR TSX 

05 LOR B 

86 LDR ft 

8H SUB R 

BQ SBC B 

&5 • ST 8 B 

06 STR R 
&B BRR 

LINE 



$FE4R 



FOLLOWING IS LOCATION OF ENTRY OF THE BRKPT VECTOR. 



00 

70 
4-E , 
F'CCB^lf^ -■ 
POPLIN 

* 

DEBUG 



m 

FCfiS 
48 

09 






cup 

BLT 
BGT 

JSR 

INS 



BSR 
BSR 
JSR 
LDX 

BSR 
BRR 



BO 
BO 
39 



81 
20 



"C4A INPCHR JSR 



CI 



R7 
28 



81 
20 

SO 
DE 
R7 



68 
28 



03 
2:5 
4-5 

&> Cm 

08 
6<6\ 



2:8 
12 

09 

5"o 
48 

010 



* 

P-i 

foe- 



CLRBRK 



r". ■■!' ,'■■• 



CNP 
BLT 
BGT 

LDX 

LtJH 
CT£> 

„■ / n 

r»t p*y ( ~"> 

Bt<h 



CHRNGE CMP 



SPRCE 



OPNNXT 



ft 



ft 

ft 



ft 



-BGT 

BSR 
LDX 
STR ft 



5, X 
ft X 

#1 

#0 

5,X 
£.. X 

DEBUG 



i$80 
JNPLCN 
GPNREG. 
SUB32 



N&ILIN 

INPCHR 

RTRRRO 

PCVRL 

RUNBUG 

DBUG1 



GETCHR 
PUTCHR 



im< 

BRR 



§$83 

BRKSET 
EH I T 

mm 

& x 

OSPROR 

##••" 

EXECTV 
OPNPRE 
INPNUFt 

PCVRL 
8.. X 



DSPRDR 



INDEX GETS STRCK POINTER. 
L8R0S HI RETURN RDORESS. 
L8R0S LBN BYTE OF RDORESS. 
SUB 1 FR8M RETURN RDORESS. 

RESTORES RETURN RODR. TO 
THE BRERKP8INT LO CRT ION. 
GOES TO THE DEBUGGER. 



TESTS FOR ft C. R. <LINE). 
GOES TO 'JSR' <tJ) ROUTNE. 
SKIPS FOR NEXT <TR) TESTS. 
N8VES CURSOR UP ONE LINE. 
CLERNS UP STRCK FOR 
OISF'LRY OF C. R. >. 



PRINTS "C. R. >*: 

REROS IN COMMRNO. 

INSERT BLRNK. 

LORDS CURRENTLY OPENED LOC. 

EXECUTES DEBUG COMMAND. 

GOES' BRCK FOR NEXT COMNO. 



RERO IN CHRP INTO ft. 
OISPLRYS CHARACTER. 
RETURNS TO CRLLER. 



TESTS FOR ft "tC" COMMAND. 

SKIPS IF ft "tB n COMNRND. 

SKIPS FOR NEXT COMNO TEST./, 

GETS ADDRESS OF BREAKPOINT. 
LCmS ORIG BYTE CONTENTS. 

RESTORES BYTE DRTR. 

GOES TO OPEN THE LOCATION. 



TESTS OFR ft SPRCE COMNO. 
SKIPS TO EXIT BRCK TO EXEC. 
SKIPS FOR OTHER CMNO TESTS. 
INPUTS NEN BYTE CONTENTS. 
LORDS OPENED BYTE LOCATION. 
NEN BYTE CONTENTS. 



FORMS NEXT LOCATION ADORES. 
GOES TO OPEN LOCRTION BYTE. 
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xl'i 



&L96 FE95 SI 2D 
WM.97 FE97 20 F9 


OPNFRE CMP A 


#*"- 


(z»-?f) ,.,#£. r 


OPNNXT 


6819$ FE99 09 


py>-7F? DEa 




$9199 FE9R 20 5'0 


BRR 


DSPRDR 


00200 


* 




00261 , - — 


* 




00262 FE9C Hfc "■<>?■ 


} EXECTV JA/SW 


fJbSTf^-* 


80203 FE9D 3&y~ 


(«•»« IHS 




66264 FE9E TIE FC14; 


"HT^ jm— 


EXEC 


P3265 


~">lt~7f$ffUL pj rtA 


gg^/HsA- 


06266 


* 




66207 FEM A6 &0 


BRKSET LDR Ft 


0, X 


60208 FER3 97 2E 


laa-o-L.) €;jfj fl 


BRK5RV 


Q6209 FER5 OF 30 


STX 


BRKRDR 


06216 FEB? 86 3F 


LDR R 


§$3F 


66211 FEA9 A 7 &6 


STR R 


6.. X 


60212 FERB 20 Bt5 


BRR 


POPLIN 


66213 


:*■• 




66214 


*• 




60215 iFERD 81 12 


OPNREG CMP R 


#$12 


66216 FERF 2D &A 


j>£->F) .. eLT 


OPNLOC 


66217 FEB1 2E 1.9 


-BGT 


OPNTBL 


66218 FEB3 36 \ 


r tii) -> TSk' 




66219 FEB4 68 


INK 




66220 FEB5 68 


INX 




6B221 FEB6 26 3:4 


BRR 


DSPRDR 


00&k.£ 


* 




60224 FEB8 35 


-SE7STK TXS 




66225 FEB9 20 Fl9 


cveO BRFj 


DEBUG 


vvi*^ O 


•f- 




66227 


(oe-irt 




66228 FEBB 8D 2? ■ 


- OPNLOC BSR 


INPNUN 


00229 FEBD D7 46 


0PNLC1 STR B 


PCVRL 


06236 FEBF 9? 4-1 


STR R 


PCVRL+1 


66231 FECI 26 SlB 


BRR 


DSPAD1 


kj W£m , &{m , 


*• 




06233 


& 




00234 FEC3 81 &7 


EXIT CMP R 


8$67 


66235 FEC5 27 1.1 


,;#4-V) . SEQ 


GOLOCN 


66236 FEC? 2E 96 


- BGT 


LINE 


00237 FEC9 31 ' («4-«.v INb 




66238 FECR 31 


INS 




66239 FECB 3B 


RTI 




60246 


* 




60241 _. 


* . ■ 


1? 


00242 FECC SI $4(r, 


b 6PMBL CMP R 


#$±4 


60243 FECE 2D E8 


(n-y?) -BLT 


SETSTK 


66244 FED0 2E 84 


^ ,, -eor 


CHRNGE 


66245 FED2 3D S0 


' ( ^ v -^ £JS/? 


INP6HR 

.%/. i * i i\/y ■ 


06246 FED4 48 


v RSL 8 


■■■ pj- (/ * 


4k)247 FEDS 5F 


CLR B 




~Q248 FED6 26 E5 


BRR 


0PNLC1 


66249 


■* 




60256 


* 




J02-51 FEDS 31 


" GOLOCN INS 

J*y> IN5 




60252 FED9 31 




6S253 FEDR 6E 66 


- JMPLCN J MP 


6,X 



TESTS FOR R "r" COMMAND. 
SKIPS FOR R "k" COMMAND. 
FORMS PREV. LOCATION RDDR. 
GOES TO OPEN THE L0CRT10N. 

' 1 
CLEANS UP T HE \ STACK. 

\ 
RETURNS TO THE EXECUTIVE. 



LORDS DRTR OF] OP NED LOCRTN. 
SAVES DRTR OF OFNED BYTE. 
SAVES RDDR. OF BREAKPOINT. 
LORDS SOFTWARE I NT UP CONND. 
SETS AN SHI AT OFNED BYTE. 
GOES TO NEXT LINE FOR CONND. 



Y£S T q pnp> »ffjj» (STACK TOP). 

GOES TO OPEN A LOCATION. 
SKIPS FOR NEXT TEST (fT). 
OPENS TOP-OF-STRCK. 
PCVRL GETS STACK POINTER. 
(CLEANS UP THE STACK). 
GOES TO DISPLAY THE T-0-5. 



STACK POINTER GETS PCVRL. 
RETURNS TO INPUT COMMAND. 



LORDS A 16 BIT NUMBER. 
STORES NEULY OPENED 
LOCATION ADDRESS.* 
DISPLAYS CONTNTS OF LOCATN. 



TESTS IF AN EXIT (IE) COMD. 
SKIPS FOR THE "GO" COMMAND. 
SKIPS FOR NEXT COMMD TE 
CLEARS UP THE STACK. 






RETURNS FROM BREAKPOINT. 



TESTS IF R "IT" (TABLE). 

GOES TO SET STACK PTR (tS). 

SKIPS FOR NEXT TEST (SPACE). 

LORDS A NITH SYMBOL (LABL). 

ALIGNS ADDRESS FOR 

SYMBOL TABLE ENTRY. 

SAVES AND DISPLAYS ADDRESS. 



CLEANS UP THE STACK. 
JUMPS TO USERS PRQGRRN. 
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3:E 
3:E 
3:fl 



24 
3:7 



09255 

66256 

98257 

00258 FEDC 86 

60259 FEDE SO 

80266 FEEQ 86 

60261 FEE2 26 

00262 

0Q263 

0B264 

60265 

69266 FEE4 BO 

60267 FEE7 DE 

06268 FEES 80 

Q0269 FEEB 39 

60270 

09271 

90272 

00273 

09274 FEEC DF 

00275 FEEE 80 

68276 FEE0 80 

Q0277 FEF2 BD 

00278 FEF5 DE 

80279 FEF7 A6 

60280 FEES 80 

60281 FEFB 39 
60282 
00283 
60284 FEFC 96 

002 85 FEFE 80 

00286 FF00 96 
00287 
00288 
60289 
00290 

00291 FF02 CE 

00292 FF05 DF 

00293 FF07 5F 
FF68 CE &B35 



* FOLLOWING FIRE SUBROUTINES USED BY THE DEBUGGER. 



NEMLIN LOB fl #$0D 

BSR PNTBF1 

LOB fl »■-> 

BRA PNTBF1 



LORDS fl CARRIAGE RETURN. 
PRINTS B CBRRIBGE RETURN. 
LORDS B PROMPT CHARACTER. 
DISPLAYS PROMPTER CHRP. 



* FOLLOW NG INPUTS B 16 BIT NUMBER INTO THEE BR REGISTER. 
* 

EDITIN INPUTS R STRING OF DIGITS. 
SCMEXR LORDS RDDR. OF FIRST DIGIT. 
rZcBIft) CONVERTS TO BINARY # IN BA. 
RETURNS TO CALLER. 



FC 75 INPNUP1 JSR 



P* 




* FOLLOWING DISPLAYS THE LOCATION ADDR. 



& CONTENTS. 



4B 
EC 
0iR 

FCB5 
40 

&7 



40 

&2 

~4T 



DSP ADR STX 
DSPRD1 BSR 
BSR 
JSR 
LDX 
LDA fl 






RTS 



PNTOIG LDA fl 
BSR 
LDA fl 



PCVflL SAVES OPENED LOCATION RDDR. 

NE14LIN PRINTS fl "C R. " AND ">". 
PNTDIG PRINTS OUT "PCVftL" IN HEX. 
RTRRRQ ' PRINTS fl SPACE. 
PCVflL LOADS PTR. TO OPEND LOG. 

0.X LOADS DATA FROM LOCflTN. 

PNTBVT PRINTS DATA IN HEX FORMAT. 
RETURNS TO INPUT COMMAND. 



PCVflL PRINTS THE 2 HI HEX DIGIJS 

PNTBVT OF OPENED ADDRESS. 

PCVBL+1 PRINTS OUT 2 L014 HEX DIGITS. 



* FOLLOWING PRINTS OUT 2 HEX DIGITS 
■ at 

B010 PNTBVT LDX #16 

04 STX BRB 

CLR B ' ~ 



LDX 



itlOBUFF 



00296 
00297 
00298 
B0299 FF8B 07 

00300 FF0D BO 

00301 FF10 96 
B0302 FF12 06 
00383 FF14 26 

97 36 
M330S FF18 86 
t,J0396 

Q08307 FFlfl 8D 

^38308 FF1C 96 

\}Q309 FF1E BD 

O0310 FF21 39 

00311 

09312 



* FOLLOWING CONVERTS 

CONVRT ST ft B 
JSR 
LDA A 

LDA B 



LOADS 16 FOR BASE. 
STORES FOR CONVERSION. 
CLEARS HI 2 DIGITS. 
LOADS OUTPUT BUFF ADDRESS. 



BYTE TO HEX WITH LERDING ZEROS. 



3:6 

FF64 

3:5 

3:6 

m 

STA fl 
3:0 

02 = • FNTBUF BSR 
36 LDA fl 

FCBC PNTBFfjSR 
\£TS 



IOBUFE+1 CLERS BYTE FOR SECOND DIGIT. . 

na.'flEC CONVERTS TO ASCII DIGITS. 

IOBUFF LOADS HI DIGIT, 
LDH fcf IOBUFF+1 TESTS BOTH DIGITS CONVTD. ,,,„.-«. 

BNE PNTBUF SSKIPS IF BOTH DIGITS CONVTIJB0304 FFlb 

IOBUFF+1 SETS UP LOU DIGIT. 

LDA A #* x HIGH DIGIT GETS fl "0". \\ 



7- 






. • •; 



PNTBF1 • . .PRINTS OUT HI DIGIT.- 
IOBUFF+1 LOADS LOU DIGI 

PUTCHR DISPLAYS CCHRRRCTER. 

RETURNS TO CALLING PROGRAM. 



END OF DEBUGGER 



i 
[ffiGE 007 FDS:~V3N 
00314 i * UTILITY PROGRAMS 



It? 



* 



00517 * 

• 0318 * 

00319 * ASCII 7*0 £?IWfl/?V CONVERSION. 

0R320 * 

Q9321 : * rWE ASCII TO BIWAffV ROUTINE CONVERTS FROM AN ASCII 

00322 * NUMBER STRING POINTED TO BY X TO RN UNSIGNED 16 BIT 

00323 i * BINARY NUMBER IN BR CACC B HRS THE HI BYTE, RCC R HRS 
0Q324 * THE LO BYTE). THE RSCII STRING IS TERMINATED BY R HON 

00325 * HEXADECIMAL CHRRRCTER. UPON EXITING, THE INDEX REGISTER 

00326 i * WILL POINT TO THE NEXT CHRRRCTER RFTER THE NUMBER 
0032? '; • * STRING. THE BRSE OF THE NUMBER STRING IS PRSSED TO 

00328 * THE ROUTINE IN RRR <RRR IS THE ARITHMETIC REGESTER R 

00329 ■ * LOCATED IN BYTES 66 AND 07 OF LOU MEMORY). IF THE 
60330 , , * ROUTINE IS ENTERED, NITH A KNONN BASE., PUT THE BASE 
0O331 ' * (BETNEEN 2 AND 16) IN RRR AND ENTER THE ROUTINE AT 
0B332 * THE ENTRY POINT ENTR2. 

60333 * 

60334 * 
98335 * 

00336 * CONVERSION FORMULA: 

00337 ' * ASCII NUMBBER STRING XT 4 3, XT 33, XT 23, XT 13 IN 
68338 . *BRSE Ys 

00339 * BINARY NUMBER * 

§40 * X[43*Yt3+X[33*Yf2+XC23*Ytl+XC13* : Vf8 OR 

■41 ■ * BINARY NUMBER = 

42 * ( < <0*Y+XC 43) *V+XT33 ) *Y+X[23 ) *Y+XC1 3 

R0 34 3 t *UHERE f IS THE EXPONENT OPERATOR, 

00344 * X IS A CHARACTER & Y IS THE BASE. 

00345 * 
90346 * 

0034 7 * 

00348 * ALGORITHM: 

00349 *RSCBIN: FORM THE BASE IN ARA BASED ON THE FIRST CHAR. 
00359 * OF THE NUMBER STRINGj INCREMENT CHAR. PTR. IN Xj 

00351 *ENTR2: ' NUMBER <IN BA) GETS 6; 

00352 *NXTCHR: IF THE CURRENT CHAR. POINTED TO BY X IS NOT A 

00353 * DIGIT THEN EXIT ELSE INCREMT CHARACTER PTR IN INDEX.: 

00354 * CONVERT DIGIT TO BINARY; 
0835S * NUMBER GETS NUMBER * BASE; 

00356 * NUMBER GETS NUMBER + DIGIT.: 

00357 * GO TO OPERATE ON THE NEXT DIGIT <NXTCHR)j 
■ 00358 * 
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00360 

6Q361 

09362 

0Q363 

0O364 

80365 

00366 

60367 

0036S 

60369 

00379 

60371 

08372 

60373 

88374 

00375 

00376 

00377 

09378 

08379 

00380 

00381 

0Q3S2 

60383 

00384 

00385 

09386 

Q8387 

00388 

08389 

08398 

88391 

88392 

08393 

60394 

90395 

68396 

08397 

88398 

88399 



FF22 
FF24 
FF26 
FF28 
FF2R 
FF28 
FF2E 
FF38 
FF31 
FF33 
FF35 



FF37 
FF38 
FF39 
FF3B 
FF3D 
FF3E 
FF48 
FF42 
FF44 
FF46 
FF48 
FF4FI 
FF48 
FF4E 
FF58 
FF52 

FF54 
FF56 
FF57 
FF59 
FF58 
FF5D 
FF5E 
FF68 
FF62 
FF63 



R6 018 
81 SlE 

2D 06 
2E &9 
86 &R 
20 8i2 
86 &8 
88 

28 012 
86 1.8 
97 017 



5F 
37 
D7 &6 

rs &8 

08 ,- 



RSCBIN 



81 

2D 
88 



38 
28 
38 



81 &R 

2D 88 
81 1.Q 
2F 16 

88 &7 
81 18 
28 IB 
97 88 

DF 88 
32 
SD 38 

9B 0i8 

89 00 
36 

DE &8 
20 L>9 
32 

39 




ipSVB, 8 
CMP R 
■ 8LT 
CMP fl 
BLE 
SUB ft 
CMP R 
, * BGE 
SIR R 
llUK 

CNVRSC STX 
PUL 
BSR 
RDD rl 
RD8 B 
PSH R 
LDX 
BRtl 

REX IT PUL Fl 
RTS 




NUMBER 

RR1 
8, }j_ 

REX IT : 

H'@- 

#10 . 

RSC3 

€16 

REX.IT 

#7 ' ■ 
MS. ' ' 
REX IT 
DIGIT 



tup 



R T- 



(HUlTJ 

DIGIT 
id 

TMP 
NXTCHR 



GETS CHR TO FORM BRSE. 

TESTS FOR DECNL STRNG. 

SKIPS IF BRSE 8 <*>. 

SKIPS IF BRSE 16. 

LORDS BRSE 18 FOR CONVERSN. 

SKIPS T8 INC. TEXT POINTR. 

LORDS BRSE 8 FOR CONVERSION. 

INCREMENT PTR TO NEXT CHRP. 

SKIPS TO SRVE BRSE. 

LORDS BRSE 16 FOR CONVERN. 

SRVES BRSE IN BRSE®. 



GETS 8. 

(LOU NUMBER ON STRCK>. 

CLERRS HI OF BRSE. 

GETS CHBR_IQ. CONVERT. 

■ ' ; TO NEXT CHRBBCIESOS 

'TESJTTm^EW^F-STRING. . 
EXITS, IF END. 
FORMS 8. C. £>. NUMBER. 
TESTS IF DECIMRL DIGIT. 
SKIPS IF DECIMRL. 
TESTS FOR END OF STRING. 
EXITS IF NOT R HEX DIGIT. 
FORMS R HEX B. C. D. DIGIT. 
TESTS FOR ENO-OF-STRING. 
EXITS IF CHRP > "F". 
SRVES DIGIT FOR HDD. 

SRVES INDEX REG FOR MULT. 
RESTORES LO OF "NUMBER". 
NUMBER GETS NUMBER * BRSE. 
NUMBER GETS NUMBER + DIGIT. 

SRVES LO OF NUMBER. 
RESTORES STRING POINTER. 
GOES TO CONVRT NEXT CHRP. 
RESTORES "NUMBER" IN 6ft, 

RETURNS TO CRLLING PROGRRM. 
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0O4&1 

00404 

60405 
60406 
00407 
80408 
30 4 09 

00410 
00411 

00412 
00412 
00414 
00415 
60416 
60417 
00418 
00419 
60420 
80421 
00422 
80423: 
00424 
60425 
00426 
00427 

mi20 

0W429- 
00430 
08431 
00422 
08433 
00434 
00435 
00436 
00437 
00438 
00439 
00440 
00441 
00442 
00443 
00444 
■00445 
00446 
00447 
£10448 
00449 
00450 
00451 
0Q452 

•453 
454 
00455 
J0456 
00457 
0045S 



;f 



BINARY TO RSCII 



* THE BINARY TO RSCII CONVERSION ROUTINE CONVERTS 

* R 16 BIT BINRRY NUMBER IN THE BR RE0ISTR (REG B & REG A) 

* TO R STRING OF RSCII DIGITS. THE RSCII STRING CRN BE IN 

* RNY BRSE FROM BRSE 2 THROUGH BRSE 41. THE VRLUE OF THE 

* BRSE IS LOCATED IN THE ARITHMETIC PSEUDO-REGISTER RRB 

* CURB IS LOOCRTED IN BYTE RR3 CLOG 43 RND RR2 CLOC 53). 

* NHEN THE ROUTINE IS ENTERED, THE POINTER TO THE OUTPUT 

* LOCRTION IS PASSED IN THE INDEX REG. MHEN THE ROUTINE 

* EXITS, THE INDEX POINTS TO THE LRST DIGIT IN THE STRING 

* PLUS ONE. 

* CONVERSION IS DONE BY THE METHOD OF REPEATED 

* DIVISION. THE LOU ORDER DIGIT IS FORMED FIRST. THE 

* DIGITS ARE THEN PLACED ON THE STACK UNTIL CONVERSION IS 

* COMPLETED. THE DIGITS ARE' THEN POPPED OFF THE STROK 

* RND PLACED IN THE OUTPUT STRING. THE TOP-OF-STRCK IS 

* INITIALIZED TO HEX FF TO TELL MHEN ALL THE DIGITS 

* HAVE BEEN POPPED OFF THE STACK. AFTER THE DIVISION, THE 

* DIGIT (THE REMAINDER OF THE DIVISION OPERATION) 

* IS LOCATED IN THE AR B PART OF RRA (BYTE 7). MHEN 

* THE QUOTIENT OF THE DIVISION IS &, THEN THE CONVERSION 

* IS COMPLERTED. 
* 



FF64 DF em 
FF66 34 ' 
FF67 30 
FF68 6F &0 
FF6A 63 0S 
FF6C DE 04 
FF6E DF &6 
FF70 8D 3:D 



BINASC STX 

DES 

rsx 

CLR 

COM 

BIN1 LDX 

STX 
BSR 



IMP 



©, X 

ARB 





* REMAINDER OF If TO BE 




* THE 


LOU ORDER DIGIT. 


FF72 97 &2 




STR R 


TMPl 


FF74 96 &7 




LDP, R 


PRO 


FF76 36 




PSH R 


- 


FF77 96 0>2 




LDA R 


TMPl 


FF79 4D 




TST R 


- 


FF7A 26 F0 




BNE 


BIN1 


FF7C 5D 




TST B 


„ 


FF7D 26 ED 


H* 


BNE 


BIN1 


ff7f de em 


BINSTR 


' LDX 


IMP 


FF81 32 


BIN3 


PUL A 


. - 


FF82 4D 




TST R 


- 


FF83 2A 01 




BPL 


BIN4 


FFS5 39 




jsts 





FF86 

FF881 

FF8R\ 

FF8C{ 

FF8E 

FF90 

FF91 



2F 02 
86 07 
83 30 
R7 W 
08 
20 EE 



BIN4 



BINS 



CHP"R §9 

BLE 
ADD R 
ADD R 
STR R 
INX 
BRR 




BINS 



SAVES OUTPUT POINTER. 
/SETS THE TOP-OF-STRCK TO 
/ALL ONES TO TELL END OF 
/CHAR STRING (LAST CHAR IS 
/PUT ON STACK FIRST). 
RESTORES DIVISOR (BASE). 

* QUOTIENT IN BA GETS THE 
CONVERTED; REMAINDER IN APR GETS 

SAVES A OF BR. 

LOAD DIGIT (REMAINDER). 

STACK DIGIT (REVERSE ORDER). G 

RESTORES A OF BR. 

/TESTS IF QUOTIENT IS «= Q 

/(SIGNIFYING THAT 

/THE CONVERRSION 

/IS DONE). 

RESTORES OUTPUT POINTER. 
UNSTRCK A DIGIT. 
TESTS IF NEG (END?). 
SKIPS IF A DIGIT. 
EXITS FROM SUBROUTINE. 
TESTS IF RESULT IS HEX. 
SKIPS IF DIGIT NOT HEX. 
FORMS HEX VALUE OF DIGIT. ...... 

FORMS DECIMAL CHARACTER. 
OUTPUTS CHARACTER. 
POINTS TO NEXT CHARACTER. 
GOES BACK FOR NEXT DIGIT. 
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39466 

00461 

09462 

06463 

80464 

0B465 

06466 

00467 

B0468 

08469 

60479 

80471 

00472 

89473 

00474 

&0475 

09476 

80477 

00478 

0Q479 

80480 

00431 

064&2 
00483 
08484 
00485 
88486 
00487 
80488 
60489 
68490 
80491 
00492 
88493 
. :8i 
88495 
88496 
08497 
» 80498 
88489 



MULTIPLY ROUTINE 



8Cm 

88503 
6 Oi 8 ' 
80585 
88586 
08SQ7 
08588 
08589 
60518 

tmsii 

^88512 
Q00513- 

y. no 514 

, 0515 
08516 
Q0517 



FF93 
FF94 

■s 



•F9f 
FF98 
FF99 
FF9R 

FF9B 
FF9C 

FF9D 

FF9F 

FFfll 

FFR3 

FFR5 

FFB7 

FFB9- 

FFRB 

FFRC 

FFRD 

FERE 



1.0 



38 

37 

€€ 
tib 

4F 

5F 

30 

48 

5*9 

68 &2 

69 &i 
24 &4 
88 &7 
D9 &6 
68 08 
26J r 0- 
81 

31 
31 
39 



* THE MULTIPLY ROUTINE MULTIPLIES WO 16 BIT BINRRY 

* NUMBERS TOGETHER TO PRODUCE 8 16 BIT RESULT. THE BR 

* REGISTERS RND RRR (BYTES 6 & 7) REGISTER RRE USED. 

* THE CONTENTS OF RRR RRE UNCHRNGED UPON PROGRRM EH IT. 



BR GETS BR * RRR 



•* MULTIPLYING IS RCCONPLISHED BY REPENTED ADDITIONS 

* OF ONE OF THE OPERRTORS (OPERRTOR RRR) INTO THE RESULT. 

* THE RESULT STARTS OUT NITH R ZERO VRLUE RND IS SHIFTED 

* OVER 'ONE AFTER ERCH ROD IT ION. THE HIGHEST ORDER VRLUE 

* IS BODED IN FIRST RND WEN, GOING TO THE RIGHT* . 

* (THUS SHIFTING THE RNSHER LEFT ONE TO BRING IN THE NEXT 

* RIGHTMOST DIGIT) GETTING THE RENT L8NERMQST SIGNIFICANT 

* DIGIT. THE NEXT RIGHTMOST BIT OF THE OTHER .OPERRND 

* (THE ONE ORIGINALLY IN BR) IS TESTED.. RND IF ONE.. 

* ANOTHER RED I HON TRKES PLRCE. THIS IS REPENTED UNTIL 

* THE FINRL SUM IS FORMED. 

in 
* 

* MULTIPLY RLGORITHH: 

•ft . 

*HULT: STRCK 8fb BR GETS 8j SET COUNT VRLUE TO Z6s 
*NUL1: SHIFT BR LEFT It 

* SHIFT LEFT ORIQ BR VRLUE ON STRCK INTO CRRRYj 

* IF CRRRY = THEN GO TO MUL2 

* BR GETS BR + RRRj 
: mJL2: DECREMENT COUNT; 

* IF COUNT # 8 THEN GO TO MUL1 ELSE EN IT. 

Us 

MULT 



MUL1 



MULE 



PSH R 
PEN B 

m$ 

CLR R 
CLR B 

RSL R 
ROL B 

RSL 
ROL 
BCC 
HDD R 
RDC B 
DEC 
SUE- 
INS 
INS 
INS 
RTS 



#16™ 



2,X 
1,X 

NUL2 
RRO i 

mi •- 
e, x 

MULl ■ 



PUTS THE ORIGINRL CONTENTS 
8F BR ONTO THE STRCK. 
LORDS COUNT VRLUE 
UNTO THE STRCK. 

8R GETS ZEROED. 

SET INDEX TO STRCK. 
SHIFT LEFT BR. 

SHIFTS ORIG. BR OPERRND 
ONE LEFT INTO CRRRY. 
SKIPS RDDINCR IF CRRRY f & 
BR GETS BR + RRR. 

TESTS IF DONE. 
-GOES BRCK IF NOT DONE. .. ■ ; 
CLERNS UP THE STRCK. 



EXITS ROUTINE. 



-«..; # 



P§lOi 
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08519 

63526 

eX22 
60523 
60524 

. •:> '•:< 

': 52? 
60528 
80529 
08530. 

00531 

88532 

LW534 

H 535 

00556' 

0053? 

86538 
09539 

80541 
00542 

89543 
£9544 
33545 

146 

4? 

89548 

08549 

00559 

06551 

I3B552 

88553 

1313554 

66555 

00556 

6BSS? 

99558 

885S9 

80568 

Q0561 

60552 

60563 

0&564 

00565 

kW566 

0056? 

08568- 

09569 

00570 

m 

00573 
„<Q574 
Q0575 

08576 



FFRF 

FFBQ 

FFB1 

FFB3 

FFB5 

FFB6 

HFB7 

FFB8 

FFBS 

FFBB 

FFBD 

FFBF 

FFC2 
FFC4 
FFC6 
FFC8 

FFCR 

FFCC 
FFCR 
FFDO 

FHD2 



36 
3? 
96 
D6 
3? 
36 
34 
3Q 
86 

6D 

..■-,,,., 

4C 

68 
69 

..'.., o 

81 

26 

a? 

E6 
R6 

6F 

6F 



&6 



01 
01 

&B 

&2 

m 

04 
1.1 
F5 
00 
03 
04 
&3 
04 



DIVIDE ROUTINE 

THE DIVIDE SUBROUTINE DIVIDES THE 16 BIT NUMBER 
IN THE BR REGISTERS BY WE 16 BIT NUMBER IN THE PSEUDO 
REGESTER RRRi (LOCRTED IN BYTES 6 & ?>. UPON EXITING* 
BR WILL CONTRIN THE QUOTIENT OF THE DIVISION 

mill contrin the remrinder. the dividend m 

BY THE DIVISOR RRR (I.E. BR/RRR >. 



* 

* 

IK 

* 

*DIVIDE: 



FIND RRR 
IS DIVIDED 



divide ALGORITHM: 



H3, 4 GETS BR (BR IS PUT ON THE STRCK>j 
XI* 2 GETS THE 16 BIT RRR VRLUE (RRR PUT ON THE STRCK>* 

* COUNT GETS 1 + THE NUMBER' OF NONSIGNIFICANT BITS IN 

* THE DIVISOR [LEFT JUSTIFY HI, 2 TO FIRST 1 BIT* COUNT 

* GETS 1 + THE # OF LERDING ZEROS IN HI* 23 [COUNT HILL BE 

* FROM 1 TO 17 J; 

* PR GETS X3* 4 [RESTORES BRh 

* X3*4 GETS [INITIALIZES THt 
*DIV3: BR GETS BR - HI* 2; 

* IF THERE UPS R BORRON [I. E. 

* IN HI* 2 <RRR>] THEN BR GETS BR + HI* 2 [ORIGINRL BR 

* VRLUE RESTORED] & 8...RV CLERRED ELSE CRRRV IS SET* 
'*D1 V5: H3* 4 [QUOTIENT! GETS CRRRV LEFT SHIFTED IN* 

HI* 2 [,D IV I SORT GETS SHIFTED RIGHT ONE PLRCE WITH ZERO 
FILLED IN FROM THE LEFT SIDEj 
.. DECREMENT COUNT* 

EH IT IF DONE ELSE GO TO DIV3* ■ 



■ QUOTIENT], 

DIVIDEND IN BR < DIVISOR 



DIVIDE PSH R - 
PSH B 
LDR R RR:t 
LDR B RRQ 

PSH B - 
PSH R 

DtIS 

— I2L— 

LDR R 
TST 
Bill 
01 VI INC R 

RSL 

ROL 

biii 

CNR R 
BNE 
DIV2 STR R 
LDR B 
LDR R 
CLR 
CLR 4, 



it 
1..X 

DIV2 

2*X 
1, X 
DIV2 
R..' 
01 VI 
0*H . 
3* X 
4, X 
■;• v 



LORDS DIVIDEND INTO X3* 4. 
LORDS DIVISOR FROM RRR. 
PUTS DIVISOR INTO XI* 2. 

SET UP SPRCE FOR COUNT. 
INDEX GETS STUCK POINTER. 
INITIALIZE COUNT. 
TESTS FOR HI DIVISR BIT ON. 

SKIPS IF ON. 

COUNTS LERDING ZEROS 

LEFT JUSTIFIES XI* 2. 

SKIPS IF NO LENDING ZERO. 
TERr-; ruR RLL ZERO DIVISOR. 
GOES BRCR IF BITS LEFT. 
SETS COUNTER. ,8 8 

BR GETS ORIGINRL 
DIVIDEND' VRLUE. 
CLERRS H3* 4 FOR FORNRTION 
OF THE QUOTIENT. 
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00578 


FFD4 


R8 


£12 


DIV3 


SUB 


R 


£.■/ iN 


00579 


FFD6 


E2 


&1 




SBC 


B 


1,X 


&0588 


FFD8 


24 


07 




BCC 




DIV4 


0QS81 


FFDR 


88 


&2 




FIDO 


R 


2>X 


00582 


FFDC 


E9 


en 




ROC 


B 


1, X 


00583 


FFDE 


ec 






CLC 






00584 


FFOF 


26 


en 




BRR 




DIV5 


005S5 


FFE1 


60 




DIV4 


SEC 






00586 


FFE2 


69 


eu 


DIV5 


ROL 




4,X 


00587 


FFE4 


69 


e>3 




ROL 




3,X 


00588 


Frtt> 


64 


en 




LSR 




1, X 


00589 


FFE8 


66 


02 




ROR 




2>X 


00590 


FFER 


6FI 


eie 




DEC 




6, X 


00591 


FFEC 


26 


E6 




BNE 




DIV3 


00592 


FFEE 


D7 


e>6 




STR 


B 


RR1 


68593 


FFF0 


97 


e>7 




STR 


R 


RR8 


00594 


FFF2 


31 






INS 






00595 


FFF3 


31 






INS 






00596 


FFF4 


31 






INS 






08597 


FFF5 


33 






PUL 


B 


STORES 


00598 


FFF6 


32 






PUL 


R 




00599 


FFF7 


39 






RTS 






00600 








* 








B0601 








*■ 








60602 








* 








00603 


FFF8 


8164- 


IRQ 


FOB 




$8164 


66604 


FFFR 


FE4FI 


SHI 


FDB 




BKENTR 


60665 


FFFC 


618& 


NMI 


FDB 




$8168 


00606 


FFFE 


FC6& 


RST 


FDB 




$FC66 


60607 








* 








00608 








* 








00609 








* 








&8616 








* END 


OF PDS 


SOURCE 


80611 








* 








66612 








* 








60613 










END 






TOTRL 


ERRORS d 


WQdi 


'f 









STRRT OF DIVIDE LOOP. 

SKIP IF DIVIDEND < DIVISOR. 
RESTORES DIVIDEND IN BR. 

CLERRS THE CRRRV. 
SKIPS 141 TH CRRRV CLERR. 
SETS CRRRV TO 1. 
SHIFT CRRRV INTO 
QUOTIENT X3, 4 
SHIFTS DIVISOR XI, 2 
RIGHT ONE. 
DECREMENTS COUNTER. 
GOES BRCK IF NOT DONE. 
STORES RENRINDER IN RRR. 

CLERNS UP THE STRCK. 



QUOTIENT IN BR. 
EXITS ROUTINE. 



INTERRUPT REQUEST VECTOR. 
SOFTNRRE INT. VECTOR RDDR. 
NON-NRSKRBLE-INT. VECT. 
RESTRRT VECTOR RDDRESS. 



